home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 2002 April / 136cd2.img / Data / Sharewares / Communication / zes_117_server.exe / {app} / scripts / fonctions.ini < prev    next >
INI File  |  2002-03-03  |  1KB  |  43 lines
  1. [aliases]
  2. n0=======
  3. n1== Retourne la durΘe ΘcoulΘe entre $1 et $2
  4. n2=/duree {
  5. n3=  %duree = $1 - $2
  6. n4=  return $duration(%duree)
  7. n5=}
  8. n6=======
  9. n7== En rapport avec les aways, permet de rentrer les chans
  10. n8== sur lesquels on veut passer le msg d'away
  11. n9=/setnbchan {
  12. n10=  echo 10 -= Parametrage des chans o∙ passera le msg d'away =- 
  13. n11=  echo 10 Actuellement, il y a une limitation α 5 chans maxi
  14. n12=  echo 10 Rentrer le nom du texte avec la syntaxe "#nomduchan" (sans les guillemets)
  15. n13=  :boucle
  16. n14=  set %nbchan $$?="Nb de chan ? Maxi 5"
  17. n15=  if ( %nbchan > 5 ) { 
  18. n16=    goto boucle 
  19. n17=  }
  20. n18=  set %i 1
  21. n19=  while ( %i <= %nbchan ) {
  22. n20=    set %chn $+ %i $$?="Nom du chan %i ?"
  23. n21=    inc %i
  24. n22=  }  
  25. n23=  unset %i
  26. n24=}
  27. n25=======
  28. n26== Somme
  29. n27=/somme {
  30. n28=  %som = $1 + $2
  31. n29=  return %som
  32. n30=}
  33. n31=
  34. n32=/temps {
  35. n33=  set %date $$1
  36. n34=  set %heure $$2
  37. n35=  ;transformation de l'heure en secondes
  38. n36=  return $calc($temps2 - ($gettok(%date,1,47) * 86400 + $gettok(%date,2,47) * 2629746 + $gettok(%date,2,47) * 960495003 + $gettok(%heure,3,58) + $gettok(%heure,2,58) * 60 + $gettok(%heure,1,58) * 3600))
  39. n37=}
  40. n38=/temps2 {
  41. n39=  return $calc($calc($calc($gettok($date,1,47) * 86400) + $calc($gettok($date,2,47) * 2629746) + $calc($gettok($date,2,47) * 960495003)) + $calc($gettok($time,3,58) + $calc($gettok($time,2,58) * 60) + $calc($gettok($time,1,58) * 3600)))
  42. n40=}
  43.